home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).do / PHYSICS.MENU.bas < prev    next >
BASIC Source File  |  1996-12-24  |  6KB  |  161 lines
  1. 1  FOR X = 1 TO 4
  2. 2  READ NM$(X),P$(X)
  3. 3  NEXT X
  4. 10  TEXT : HOME : POKE  -16368,0
  5. 20 A$ = "INSTRUCTIONS": GOSUB 10000
  6. 40  PRINT : PRINT "THERE ARE TWO DIFFERENT PROGRAMS IN"
  7. 50  PRINT : PRINT "THIS PHYSICS DEMONSTRATION.  THEY ARE:"
  8. 60  PRINT : PRINT "1.  FREEFALL"
  9. 70  PRINT : PRINT "2.  PROJECTILE MOTION"
  10. 80  PRINT : PRINT : PRINT "PLEASE ENTER THE NUMBER OF THE TOPIC"
  11. 81  PRINT : PRINT "THAT YOU WOULD LIKE HELP ON, OR 'R' TO"
  12. 82  PRINT : PRINT "RUN A PROGRAM."
  13. 90  VTAB 19: PRINT "===>"
  14. 95  VTAB 19: HTAB 5: GET A$: PRINT A$
  15. 96  IF A$ = "R"  THEN 4000
  16. 100 A =  VAL(A$)
  17. 110  IF A = 1  THEN 1000
  18. 120  IF A = 2  THEN 2000
  19. 130  PRINT  CHR$(7)
  20. 140  GOTO 95
  21. 1000  HOME 
  22. 1010 A$ = "FREEFALL": GOSUB 10000
  23. 1020  PRINT : PRINT "THERE ARE TWO PARTS TO THE FREEFALL"
  24. 1030  PRINT : PRINT "PROGRAM.  THEY ARE:"
  25. 1040  PRINT : PRINT "1.  FREEFALL TUTORIAL"
  26. 1050  PRINT : PRINT "2.  FREEFALL DEMONSTRATION."
  27. 1060  PRINT : PRINT : PRINT "WHICH WOULD YOU LIKE INFORMATION ON?"
  28. 1070  VTAB 15: PRINT "===>";
  29. 1080  VTAB 15: HTAB 5: GET A$: PRINT A$
  30. 1090 A =  VAL(A$)
  31. 1100  IF A = 1  THEN 1500
  32. 1110  IF A = 2  THEN 1700
  33. 1120  PRINT  CHR$(7): GOTO 1080
  34. 1500  HOME :X = 1
  35. 1510 A$ = "FREEFALL TUTORIAL": GOSUB 10000
  36. 1511  PRINT : PRINT "VERY LITTLE HAS TO BE DONE DURING THE"
  37. 1512  PRINT : PRINT "RUN OF THIS PROGRAM.  WHENEVER THE"
  38. 1513  PRINT : PRINT "SCREEN BECOMES FULL WITH WRITING, YOU"
  39. 1514  PRINT : PRINT "WILL BE ASKED TO PRESS ANY KEY.  YOU CAN"
  40. 1516  PRINT "PRESS ANY KEY EXCEPT THE RESET, SHIFT,"
  41. 1518  PRINT : PRINT "OR CTRL KEYS."
  42. 1520  PRINT : PRINT "WHEN YOU ARE ASKED TO ENTER AN ANSWER,"
  43. 1530  PRINT : PRINT "PLEASE ENTER YOUR ANSWER AND PRESS THE"
  44. 1540  PRINT : PRINT "RETURN KEY TO ALLOW THE COMPUTER TO"
  45. 1550  PRINT : PRINT "ACCEPT YOUR ANSWER."
  46. 1560  GOSUB 11000
  47. 1570  HOME 
  48. 1580 A$ = "FREEFALL TUTORIAL": GOSUB 10000
  49. 1590  PRINT : PRINT "WHEN THE PROGRAM IS FINISHED, THE"
  50. 1600  PRINT : PRINT "FREEFALL DEMONSTRATION WILL BE RUN"
  51. 1610  PRINT : PRINT "AUTOMATICALLY."
  52. 1620  GOTO 12000
  53. 1700  HOME :X = 2
  54. 1710 A$ = "FREEFALL DEMONSTRATION": GOSUB 10000
  55. 1720  PRINT : PRINT "NOTHING AT ALL HAS TO BE DONE DURING"
  56. 1730  PRINT : PRINT "THIS DEMONSTRATION."
  57. 1740  PRINT : PRINT : PRINT "JUST SIT BACK AND ENJOY."
  58. 1750  PRINT : PRINT : PRINT "WHEN IT IS OVER, THE PROGRAM WILL"
  59. 1760  PRINT : PRINT "RETURN TO THE MAIN MENU"
  60. 1770  GOTO 12000
  61. 2000  HOME 
  62. 2010 A$ = "PROJECTILE MOTION": GOSUB 10000
  63. 2020  PRINT : PRINT "THE PROJECTILE MOTION DEMONSTRATION IS"
  64. 2030  PRINT : PRINT "BROKEN UP INTO TWO PARTS.  THEY ARE:
  65. 2040  PRINT : PRINT "1.  PROJECTILE MOTION TUTORIAL"
  66. 2050  PRINT : PRINT "2.  PROJECTILE PLOTTER"
  67. 2060  PRINT : PRINT "WHICH WOULD YOU LIKE INFORMATION ON?"
  68. 2070  VTAB 15: PRINT "===>"
  69. 2080  VTAB 15: HTAB 5: GET A$
  70. 2090 A =  VAL(A$)
  71. 2100  IF A = 1  THEN 2200
  72. 2110  IF A = 2  THEN 2600
  73. 2120  PRINT  CHR$(7)
  74. 2130  GOTO 2080
  75. 2200  HOME :X = 3
  76. 2210 A$ = "PROJECTILE MOTION TUTORIAL": GOSUB 10000
  77. 2220  PRINT : PRINT "VERY LITTLE HAS TO BE DONE DURING THIS"
  78. 2230  PRINT : PRINT "PROGRAM.  WHENEVER THE SCREEN BECOMES"
  79. 2240  PRINT : PRINT "FULL WITH WRITING, YOU WILL BE ASKED TO"
  80. 2250  PRINT : PRINT "PRESS ANY KEY.  YOU CAN PRESS ANY KEY"
  81. 2260  PRINT : PRINT "EXCEPT THE RESET, SHIFT, OR CTRL KEYS."
  82. 2270  PRINT : PRINT "WHEN YOU ARE ASKED TO ENTER AN ANSWER,"
  83. 2280  PRINT : PRINT "PLEASE ENTER YOUR ANSWER AND THEN PRESS"
  84. 2290  PRINT : PRINT "RETURN TO ALLOW THE COMPUTER TO ACCEPT"
  85. 2300  PRINT : PRINT "IT.
  86. 2310  GOSUB 11000
  87. 2320  HOME 
  88. 2330 A$ = "PROJECTILE MOTION TUTORIAL": GOSUB 10000
  89. 2340  PRINT : PRINT "WHEN THE TUTORIAL IS FINISHED, THE"
  90. 2350  PRINT : PRINT "PROJECTILE PLOTTER WILL BE RUN"
  91. 2360  PRINT : PRINT "AUTOMATICALLY"
  92. 2370  GOTO 12000
  93. 2600  HOME :X = 4
  94. 2610 A$ = "PROJECTILE PLOTTER": GOSUB 10000
  95. 2620  PRINT : PRINT "THIS PROGRAM ALLOWS YOU TO ENTER SOME"
  96. 2630  PRINT : PRINT "DATA ABOUT A PROJECTILE AND SEE IT"
  97. 2640  PRINT : PRINT "PLOTTED ON THE SCREEN."
  98. 2641  PRINT : PRINT "WHEN YOU RUN THE PROGRAM, YOU WILL SEE"
  99. 2642  PRINT : PRINT "A LIST OF PARAMETERS DEALING WITH THE"
  100. 2643  PRINT : PRINT "PROJECTILE.  TO CHANGE A PARAMETER,"
  101. 2644  PRINT : PRINT "TYPE IN THE NUMBER OF THE PARAMETER,"
  102. 2645  PRINT : PRINT "RETURN, THE CORRECTION, AND RETURN AGAIN"
  103. 2646  GOSUB 11000
  104. 2647  HOME 
  105. 2648 A$ = NM$(X): GOSUB 10000
  106. 2650  PRINT : PRINT "TO USE THE PROGRAM, YOU MUST CHANGE"
  107. 2660  PRINT : PRINT "THE FIRST TWO PARAMETERS, WHICH ARE THE"
  108. 2670  PRINT : PRINT "ANGLE OF INCLINATION, AND THE INITIAL"
  109. 2680  PRINT : PRINT "VELOCITY.  THIS IS BECAUSE THEY BOTH"
  110. 2690  PRINT : PRINT "ARE EQUAL TO ZERO WHEN THE PROGRAM IS"
  111. 2700  PRINT : PRINT "RUN FOR THE FIRST TIME."
  112. 2710  GOSUB 11000
  113. 2715  HOME 
  114. 2720 A$ = NM$(X): GOSUB 10000
  115. 2730  PRINT : PRINT "WHEN THE COMPUTER HAS FINISHED PLOTTING"
  116. 2740  PRINT : PRINT "THE PROJECTILE, YOU WILL HEAR A CLICKING"
  117. 2750  PRINT "SOUND.  THIS SOUND INDICATES THAT THE"
  118. 2760  PRINT : PRINT "COMPUTER HAS FINISHED PLOTTING, AND YOU"
  119. 2770  PRINT : PRINT "SHOULD PRESS THE SPACE BAR TO RETURN"
  120. 2780  PRINT : PRINT "TO THE MENU."
  121. 2790  GOTO 12000
  122. 4000  HOME 
  123. 4020 A$ = "RUN A PROGRAM": GOSUB 10000
  124. 4030  PRINT : PRINT "THE FOLLOWING PROGRAMS ARE AVAILABLE:"
  125. 4040  PRINT 
  126. 4050  FOR X = 1 TO 4
  127. 4060  PRINT X".  ";NM$(X)
  128. 4070  PRINT 
  129. 4080  NEXT X
  130. 4090  PRINT "PLEASE ENTER THE NUMBER OF THE PROGRAM"
  131. 4100  PRINT : PRINT "THAT YOU WANT TO RUN."
  132. 4110  VTAB 18: PRINT "===>"
  133. 4120  VTAB 18: HTAB 5: GET A$: PRINT A$
  134. 4130 X =  VAL(A$)
  135. 4140  IF X <1  OR X >4  THEN 10
  136. 4150  GOTO 12020
  137. 10000 L =  LEN(A$)
  138. 10010  PRINT  TAB( (40 -L)/2);A$
  139. 10020  FOR Y = 1 TO L
  140. 10030  HTAB (40 -L)/2 +Y -1: PRINT "-";
  141. 10040  NEXT 
  142. 10045  PRINT 
  143. 10050  RETURN 
  144. 11000  VTAB 24
  145. 11010  INVERSE 
  146. 11020  PRINT "PRESS THE SPACE BAR";
  147. 11030  NORMAL 
  148. 11040  GET A$
  149. 11050  IF A$ < >" "  THEN  PRINT  CHR$(7): GOTO 11040
  150. 11060  RETURN 
  151. 12000  PRINT : PRINT : PRINT "TO RUN THE ";NM$(X);","
  152. 12001  PRINT : PRINT "PRESS 'R'.  TO GO BACK TO THE MAIN MENU,"
  153. 12002  PRINT "PRESS ANY OTHER KEY"
  154. 12009  GET A$
  155. 12010  IF A$ < >"R"  THEN 10
  156. 12020  HOME 
  157. 12030  VTAB 13
  158. 12040  PRINT "NOW RUNNING THE PROGRAM"
  159. 12050  PRINT  CHR$(13); CHR$(4);"RUN";P$(X)
  160. 15000  DATA  FREEFALL TUTORIAL,FREEFALL I,FREEFALL DEMONSTRATION,FREEFALL II
  161. 15010  DATA  PROJECTILE MOTION TUTORIAL,PRO.IV,PROJECTILE PLOTTER,PRO.VI